unit dCidades;

interface
uses
classes,
dObjects;
type
Tcidades=class(TdObjects)
private
fdescrcidade : string;
fidcep : integer;
fidcidade : integer;
fidregiao : integer;
fpais : string;
fuf : string;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property descrcidade : string read fdescrcidade write fdescrcidade;
 property idcep : integer read fidcep write fidcep;
 property idcidade : integer read fidcidade write fidcidade;
 property idregiao : integer read fidregiao write fidregiao;
 property pais : string read fpais write fpais;
 property uf : string read fuf write fuf;
end;

implementation

constructor Tcidades.create;
begin
inherited;
self.addpk(['idcidade']);
self.TableName := 'cidades';
end;
destructor Tcidades.destroy;
begin
inherited destroy;
end;
procedure Tcidades.clear;
begin
 fdescrcidade:='';
 fidcep      :=0;
 fidcidade   :=0;
 fidregiao   :=0;
 fpais       :='';
 fuf         :='';
end;

end.
 